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Parse Data and Action Routines i$-se -1984 23:51:04 AX-11 Bliss-32 V4.0-74 P 1 
14 at 93:2 pi 98 ENCP.SRe NCPPRSACT.B32; ee (1) 


1 1 Brits "Parse Data and Act ign 8 Routines’ : 
¢ ¢ MODULE NCPPRSACT (IDENT = $ 
ADDRESSING “MODE CEXTERNAL=GENERAL) F 
i ADDRESSING -MODE (NONEX TERNAL S GENERAL) D = ; 
5 5 : BEGIN : 
5 1! : 
3 4 } ppt iat aan ar ind hah elaine é 
'@ a ° 
10 O90 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * F 
11 11. 1 i DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * ; 
\§ pots ! :* ALL RIGHTS RESERVED. * ; 
14 0014 1 ie THIS he * IS 4 gt UNDER A LICENSE AND MAY BE USED AND COPIED * . 
15 0015 1 !* ONLY IN RDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * : 
18 B98 1! INCLUSI ASE THe on Sg dh NOTICE. THIS SOFTWARE OR ANY OTHER * é 
1 001 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 5 
18 dt 1 !® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * : 
i 4 : - TRANSFERRED. ® 3 
. ® P 
1 0021 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * ° 
; 00 ¢ 1 '* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ® $ 
; 00g3 1 is CORPORATION. ‘ : 
5 025 1 i DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * é 
$ $ ! :: SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. : ‘ 
8 028 1 is . : 
9 0099 : leueeeccesenceecenccenencensenceectereereceectestesnansannnnnansnsnnsensenens P+ 
0 ; 
2 0082 i 1e+ : 
i : : FACILITY: Network Control Program (NCP) : 
5 0035 1 | ABSTRACT: 2 
i 0037 : : Data and Action routines for parsing : 
9 0039 | ENVIRONMENT: VAX/VMS Operating System 3 
1 0041 1 i AUTHOR: Darrell Duffy , CREATION DATE: 28-August-79 3 
: 7 1 ' MODIFIED BY: : 
4 Bee 1! é 
. 2 v03-002 RPGO002 Bob Grosso 29-Jul-1982 
§ ! Add new routine to supply prompting help. 
sof v03-001 RPG0001 Bob Gro 30-Jun-1982 
$3 : Add routines to earn yee lists. 
39 : 2 voo2 TMHO002 Tim Halvorsen 04-Nov-1981 
26 1! Remove duplicate definition of NCPS_NXT_STATE as 
55 1! both an external and a global. It Should have been 
23 : } one or the other. 
2$ 1! v001 TMHO001 Tim Halvorsen 18-Jun-1981 
~ 3 Make all external references longword relative. 
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PPosso-t9ge 2$:5]:06 yan 


Parse Data and Action Routines 
Definitions 


ZSBTTL 


— 


‘Definitions’ 
TABLE OF CONTENTS: 


FORWARD ROUTINE 
NCPSS1G_CMDERR; 


INCLUDE FILES: 


LIBRARY ‘LIB$:NCPLIB ais 
LIBRARY ‘SYSSLIBRARY: 


OWN STORAGE 


GLOBAL LITERAL 


Sesss 


co ~ 
Wr O0Onour 


SSAA ASSSLEGRAR LS SELES LESEAE OPEN ELIS ITO IS EELS OPER 


1 
1 a 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
09 i —— ACTSGA_RNGLST 
84 1 “ 
0085 1 
0086 1 NCPS$_NXT_STATE : 
908 1 NCP$-PRSCMD_DSC 
1! 
0090 i EXTERNAL REFERENCES: 
92 1 
35 * EXTERNAL LITERAL 
-. NCP$_AMBCMD, 
5 1 NCP$_INVCMD, 
1 “CMDCAN, 
8 4 NEPSTFIETOLIM 
1 0099 1 “NOTDONE , 
1 100 1 NCP$_PRMRNG, 
1 101 1 NCP$_PRMLEN, 
1 1 ’ 1 NCP$~ SYNTAX 
1 1 1 LIBS- SYNTARERR 
} oe Coa 
1 106 1 EXTERNAL ROUTINE 
1 107 1 LBRSOUTPUT_HELP, 
1 1 a 1 LIB$GET_INPUT 
1 1 1 LIBSPUT~OUTPUT, 
110 LIBSTPARSE; 
1 11 1 EXTERNAL R TINE 
1 113 1 NCP SuRiT E_LINE, 
1 14 1 NCPSREAD CMD, 
1 115 1 NEPSCRD OTERM. Q 


aed. L32'; 


VECTOR (2) 


: VECTOR 


VECTOR CACTSC “ee + 


21; 


w$p-l9be f2:48s13 


ese Ol feeeae V4.0<74 
NCP. SRCINCPPRSACT .B32; (2) 


! Signal a command error 


ACTSC_RNGLSTMAX = 2 * MAX_RNGLST_PAIRS; 


— 
Channel tes 
! ACTSGA _RNGLST. 63 " tentates count 
' Next state table and keytable to use 
i Descriptor of the parsed command 


Error status for ambiguous command 
Error status for invalid command 
Command canceled 

1/0 error 

Too omy fields 

Prompt for nanvterotacl command 
Parameter range status code 
Parameter length status code 

Syntax error status 

Syntax error status from LIBSTPARSE 


Prompting help 

for prompting: to for help 
for printing help 

The table parser’ 


Write a Line $e sypSoute put 
i command with cont ayer ton 
nput device a terminal? 


<z 
oo 


-1984 23:51: AX-11 Bliss-3 4.02746 Page 2 
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: 182 181 1 
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ZSBTTL ‘NCPSPARS sf CMD Parse Command’ 
GLOBAL ROUTINE NCPSPARSE_CMD (INP_DSC, ST_TBL, KEY_TBL, RTN_DSC) = ! 


es 
3 


“oe 


NOUS 


1e4¢ 
! FUNCTIONAL DESCRIPTION: 
Calls LIBSTPARSE with the parse state table 
FORMAL PARAMETERS: 
INP_DSC Address of descriptor of Line 
ST_TBL Address of state table to use 
KEY_TBL Address of keyword table 
RTN_DSC Address of descriptor to receive remainder 
of command Line 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
COMPLETION CODES: 


Return status from LIBSTPARSE is signaled if syntax error 
SIDE EFFECTS: 


BEGIN 


MAP 
INP_DSC : REF VECTOR a fg}. ' Dsc of input Line 
RT N-DSC : REF VECTOR ' Returned dsc of remainder 


LOCAL 


STATUS ' Returned status 


PARSE_STATE : 


!' Parse state table to LIBSTPARSE 
BBLOCK CTPASK _LENGTHO) 


NCPS$_PRSCMD_DSC FO} = = . INP pst 93: ! Save the descriptor of the command 


NCPS$~PRSCMD~DSC - INP 
PARSE_STATE [TPASL COUNT) = 


OUNTO; 
PARSE_STATE CTPASC_OPTIONS) = 


! Set count of arg block 


Be Se Se Se Se Be Be Se Se Be Ge Se Se Se Ge Ge Se Be Se Se Se Ge Se Se Se Se Ge Se oe Ge Se Se Se Ge Se Ge Se Se Se Ge Se Se Se Se Se Ge FF Se Se Ge Se Se Se Se ee Se ee 
em a a a a a a a a ik a a a at tt a 8 8 8 2 a ts = 2 4 = a 4 a 4 1 
EWN 


SISVSARANTVSSSLSTFEKISSSVSE ALUN AS SSUSEREGWLES 


PROP IPROPOPOPORIPOPIPIPOPONPUNIPOPIPUPUIDINDD 2 9 2 2 9 tt ts so 
o 
- = - - o o 


eel ee mc ee mc ee ee md od wd ed od = dd dd dD 


SA AAA AA AAO Se 0S SSS SSeS 


! Set for minimum abbreviation 


+ 
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NCPPRSACT Parse Data and Action Routines 18-se -1 251: AX-11 Bliss-32 V4.0-74 P 6 
vos NCPSPARSE_CMD Parse Command 122888-1 382 $3:2b;98 NCP.SRCINCP aSAtT o3oe4 i (3) 
; #181 17 [ease ABBREV; 
: } § ; PARSE_STATE CTPASC_STR NG6CNT) = ! Setup the initial command string 
; 4 1 PARSE_STATE {TPASL. ST IWePTR] : | 
i 185 -INP_OSC (1); 
oe % 185 eS WaT STATE £93 = .ST_TBL; ! Setup the first round of state 
a i NCPS-NXT-STATE (1) = .KEY_TBL; 
: 4 1 DO 
; #191 1 3 BEGIN 
3 136 1 LOCAL 
; 19 1 STATES, ! Temp for state table address 
: 13° 135 ! Temp for keyword table address 
; 196 194 STATES = .NCPS_NXT_STATE fo}: ! Set up this round 
3 12 13 KEYS = .NCPS_NXT_STATE (1); 
: 199 199 NCPS_NXT_STATE = 0; ! Zero next round 
: 201 199 STATUS = LIBSTPARSE (PARSE_STATE,! Parse the string 
: 8g 39 END -STATES, .KEYS); 
: 204 o¢ ' While no error and there is a next 
; 205 03 WHILE .STATUS AND (.NCPS_NXT_STATE [OJ NEQ 0) ! round, keep going 
; 09 0 05 , 
3 4 oS Ag . STATUS ! Returned an error? 
: 210 8 4 BEGIN ! Yes, then signal it somehow 
: elt 0 IF .STATUS EQLU LIBS_SYNTAXERR ‘ Is {t a vanilla syntax error? 
; \¢ 10 ' Yes, then build the arguments 
: 1 8 11 NCPS$SIG_CMDERR 4 etenes 3 command syntax error 
3 14 i 4 ( (IF .PARSE_STATE CTPASV_AMBIG 
: 15 8 13 4 THEN _AMBCMD ' Ambiguous keyword or 
3 16 14 4 ELSE NCPS_ SYNTAX ! Syntax error 
: 1 15 ) OR STSSK_SEVERE ! Severe error to stop 
: 318 16 .PARSE_STATE TPASL TOKENCHT. 
3 1 -PARSE-STATE CTPASL_TOKENPTR 
; 0 1% -PARSE_STATE CTPASL_STRINGCNTJ, 
; 19 ~PARSE-STATE CTPASL-STRINGPTR 
; 1 ELSE 
5 3 § SIGNAL (.STATUS) ! Punt the signal of anything else 
; 6 4 END 
; 228 6 . 
3 RTN_DSC (OJ = .PARSE_STATE ! Return the remainder of the string 
s CTPASL_STRINGCNT); 
: 231 RTN_DSC [1] = .PARSE STATE 
3 § CTPASL_STRINGPTRI; 
: 1 RETURN .STATUS ! and the status of the call 
: 235 4 END; 
| 
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¥O6e000 NCPSPARSE_CMD Parse Commend 13-5 — 1388 $3 2b: % NCP. sae Meats Lc ein (3 


“TATU were React Parse Data and Action Routines 
-IDENT \V04-000\ 


-PSECT SOWNS,NOEXE,2 


00000 PARSE_STATE: 
-BLKB 36 


-PSECT S$GLOBALS$,NOEXE,2 
00000 ACTSGA_ an 0? Sa 


6 
00042 ‘eine. 3 
0044 NCPS_NXT_STATE:: 7 


“BLKB 
0004C NCPS_PRSCMD DSC:: 
-BLRB 8 


ACTSC ee ae 7 
eEXTRN 


N 

N “PRMRNG, N L 

XTRN NCPS"SYNTAX, ies SYNTAXERR 
TRN $ T P 


PUT_H 
-EXTRN LIBSGET_INPUT LIBSPU PUT_OUTPUT 
EXTR nep WRITE_CINE 

N NCPSCMD-TERM_Q 
“EXTRN NCP$_CMDBUF bse 

-EXTRN ACTSGL_PMT_G 


-PSECT SCODES,NOWRT,2 


001¢ 000 .ENTRY NCPSPARSE_CMD, Save R2,R3,R4 : 0123 
4 90000000" 00 9E 00 MOVAB NCP$_NXT STATE, R4 : 
3 00000000' 00 MOVAB PARSE STATE+8, R3 : 
0 04 =A 0 MOVL INP DSc, R + 0173 
08 A 4 MOVG ROY, NCPS oh sco _DSC : 
FB OA a MOVL an PARSE STATE : 0176 
FC OA MOVL #2. PARSE “STATE, : 0178 
6 6 mOVG RO), PARSE STATE+8 : 0181 
4 08 AC MOVa ST TAL, NCPS_NXT STATE : 0185 
1 64 1$ MOVL NCPS$_NXT_STATE, STATES : 0194 
0 04 Ab A MOVL  NCPS- NXT “STATES » KEYS : 193 
4 CLRL NCPS NXT“STATE : 019 
0 PUSHL KEYS” : 0200 
1 PUSHL ; 
FBO PUSHAB PARSE_ STATE + 0199 
000000006 CALLS #3, LIBSTPARSE ; 
MOVL RO. STAT ; 
BLBC = STATUS, + 0203 
3 TSTL  NCPS_NXT_STATE : 
F BNEQ ; 
3A 4 BLBS STATUS, 6$ : 0206 
000000006 &F : 28: cRPL TATUS, #LIB$_SYNTAXERR ; 0209 
7E 3 MOVQ = PARSE_STATE+8, -(SP) : 0218 


NCPPRSACT Parse Data and Action Routines 
yO0-000 NCPSPARSE_CMD Parse Command 


7 
i 000000006 


9 
~ :5 AX-11 Bli =74 
ESeochgNs GEED:($ Wats Zabhdepvdeatt-a249 
MOVQ PARS “STATES 16. =(SP) 
BLBC Panse~ STATE+6, 3$ 
MO #NCPS"AMBCMD, R 


~ i 000000006 ROVL #NCP$_SYNTAX, RO 
00000000v CALLS 3, NCPSSIG_CMDERR 
PUSHL STATUS 
000000006 99 CALLS #1, LIBSSIGNAL 
10 MOVL RTN_DSC 


WA POM DOOMBO@>FY > 


MWCO —MWMOU LS BVM 


RO 
MOVO PARSE STATE+8, (RO) 
STATUS, RO 


$9 


; Routine Size: 144 bytes, Routine Base: $CODE$S + 0000 
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CMDERR Signal a command syntax error 12-808-1 984 93:25:98 NCP.SRC NEPPREALT B3oe4 
ZSBTTL ‘NCPSSIG_CMDERR Slane} 3 genyené syntax error’ 
GLOBAL ROUTINE NCPSSIG_CMDERR (CODE, TKN_CNT, TKN_PTR, STR_CNT, STR_PTR) = 


* 
FUNCTIONAL DESCRIPTION: 


A command error is etgret tes for printing. The signal name is 
code. The remainder the arguments give the user context for his 
error. The context is cleaned up and passed on for printing. 


If pronet ing is not active, we signal stop to avoid further error 
messages be "9 printed. f prompting is active, we signal so that 
the prompt will allow the user to correct his mistake. 


FORMAL PARAMETERS: 


CODE Value of status code to signal 

TKN_CNT Value of size of token in error 

TKN_PTR Address of token in error 

STR_CNT Value of size of remaining part of command 

STR_PTR Address of remaining part of command 
IMPLICIT INPUTS: 

ACT True for prompting active 


SGL_PMT_Q 
NCP$_PRSCMB_DSC Descriptor of parsed command 
IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
COMPLETION CODES: 


Error condition signalled 
SIDE EFFECTS: 
NONE 


oS 


BEGIN 


LITERAL 
WDO_SIZ = 30 ! Window size for error text 


° ! Before counter for error 
° ! Before pointer for error 


a 
~ 


! Check token position for reasonable 
-TKN_PTR + .TKN_CNT) GEQA .STR_PTR ) 


.TKN_PTR + .TKN_CNT) LSSA (.STR_PTR + .STR_CNT) ) 


$3 


. 
o 
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o 
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e 
. 
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° 
° 
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. 
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e 
° 
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° 
e 
. 
e 
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a 
° 
e 
. 
e 
7 
2 
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. 
e 
7 
o 
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© 
a 
. 
o 
. 
e 
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oO 
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. 
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. 
e 
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° 
. 
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_ 
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e 
. 
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e 
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. 
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NCPPRSACT Parse Data and Action Routines 1b-se -1984 23:51: AX-11 Bliss-32 V4.0-74 Page 10 
vO NCPSSIG. CMDERR Sfgnal @ command syntax error 12280871382 $3:2B5%8 NCP.SRC NEPPRSACT o3044 s (4) 
3 ) 
>; 295 ; : THEN ! If so then fix it u 
; 996 BEGIN 4 
; 29 4 4 STR_CNT = (.STR_PTR + .STR_CNT) ! Position string beyond token 
3 98 95 - (,TKN_PTR + .TKN_CNT); 
3 +4 38 grape = ,TKN_PTR + .TKN_ONT 
; 91 38 ELSE GIN ! If not reasonable, then punt it 
; o8 s TKN_PTR = .STR_PTR; ! Make token zero Length 
3 1 TKN-CNT = 0 
; 5 § ; END 
; 30 , 
; 308 5 IF (BFR_CNT = ! Use some characters on either side 
; 309 : -TKR_PTR = .NCPS_PRSCMD_DSC ([1]) ! of the bad token 
; 10 8 GTRU 
3; 311 3 WDO_S1Z 
3 \¢ 0 THEN !' But not too many since the command 
ye. 0310 BEGIN ! may be quite long 
; 314 0311 BFR_PTR = .TKN_PTR = WDO_SIZ; 
: 1? 0 \¢ BFR-CNT = WDO_S1Z 
: 17 0 14 ELSE ! On short commands use it all 
; 18 9 15 BFR_PTR = .NCPS$_PRSCMD_DSC (1) 
: 320 0 i$ iF (AFT_CNT = ! Compute the after part too 
3 1 0 13 -STR_CNT) 
: 0 WwD0_S12Z 
: 4 0321 THEN ! for some following context 
: é 0 ¢ , AFT_CNT = WDO_SIZ 
: 4 iF .ACTSGL_PMT_Q Is ti tive? 
3 8 0325 THEN gM. Pe re 
3 9 0326 SIGNAL ! Signal to allow correction of errors 
3 8 7 (.CODE, 6, ' Signal a syntax error 
; 1 8 -BFR_CNT, .BFR_PTR, ! with all the context 
5 § -TKN_CNT, .TKN_PTR, 
H eAFT_CNT, .STR_PTR 
; 335 é ELSE 
: SIGNAL _STOP ! Signal stop to prevent further msgs 
s ¢ (. CODE, 6, ' Signal a syntax error 
3 -BFR_CNT, .BFR_PTR, ! with all the context 
; 339 6 -TKN-CNT, .TKN_PTR, 
; 340 -AFT-CNT, .STRIPTR 
3 re 3 ) 
: rk 320 END: ! End of routine 

0004 00000 ENTRY NCPSSIG_CMDERR, Save R2 3 0333 

51 Oc AC 08 ac C1 00002 ADDL3 TKN_CNT; TKN_PTR, R1 ; 


; Routine Size: 147 bytes, Routine Base: S$CODE$ + 0090 
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NCPPRSACT Parse Data and Action Routines 15-Sep-1984 23:51:04 AX-11 Bliss-32 V4.0-74 P 11 
¥O6-000 NCPSSIG_CMDERR Signal 2 command syntax error 12-8081 382 $3: 2b; 93 NCP. SRCINCPP REACT 1183084 — (4) 
16 «AC 51 pt 8 CHL R1, STR_PTR ; : 
C TF ¢ BLS ¥ 1$ : ; 
50 14 A 10 AC ci ADDL STR. CNT, STR_PTR, RO ; 0290 : 
713 1 BGEQU 1$° : ; 
50 14 =A 10 ac C¢ 19 ADDL STR_CNT, STR_PTR, RO + 0294 F 
10 AC 5 1 ¢ 1F SUBL3 R1,-RO, STR_UNT + 0295 ; 
4 A | og 4 MOVL Rl STR_PTR + 0296 : 
Oc ac AC b0 A 1$ MOVL  STR_PTR, TKN_PTR : 0300 F 
08 AC D F CLRL + 0301 : 
“ = 50 000000 D9 ‘ 2$ HOVE, NCPS PR PRSCMD p-vsc est RO ; 0306 
1E 31 bi Hi CMPL aK Pb : 0307 : 
52 oc AC te C3 O¢3 SUBLS #30. TKNPTR, BFR_PTR > 0311 : 
51 3 bo 48 MOVL #30, BFRICNT ; 0312 : 
52 8 DO 0004D 3$: MOVL R_PTR + 0315 i 
5 10 AC 00 00050 4s: MOVL ark cnt; AF T_CNT : 0318 ; 
iE 30 D1 90054 CMPL  AFT-CNT, #307 : 0319 3 
03 1B 00057 BLEQU 5$ ~ : : 
50 1E 00 90039 OVL #30 + 0322 F 
1 cnooogpe 9 SS = BEL Rltah a. ot 8) | 
50 bo 60066 PUSHL ATTEN : : 
7E 08 AC 7D 0006 MOV. TKNTCNT, =(SP) + 0329 : 
06 BB 0006C PUSHR #*MZR1,R2> : 0328 3 
rs ae leat 
000000006 00 08 FB 09073 CALLS #8. EL IBSSIGNAL : : 
146 AC DD sabre 6$ PUSHL STR_PTR : 0337 : 
50 0D 0007E PUSHL AFT -CNT : 3 
7E 08 AC 7D 00080 MOVQ. TKN“CNT, =(SP) : 0336 3 
06 8B 90084 PUSHR #*MZR1,R2> > 0335 : 
ros a deel Ba 
000000006 00 08 FB 00088 CALLS i LIBSSTOP : ; 
04 0009 RET > 0340 ; 
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ata and Action Rout tags 15-5ep-1984 63:31:06 AX-11 Bliss-32 V4. 
COMMAND Action routine for invalid com 14-Sep-1984 12:48: NCP.SRCINCPPRSACT 


ZSBTTL ‘ACTSINV_COMMAND Action routine for invalid command’ 
GLOBAL ROUTINE ACTSINV Sa aad STRCNT, STRPTR, TKNCNT, TKNPTR, 
= 2 


CHR, NOM, PAR 


oe 


FUNCTIONAL DESCRIPTION: 


Action routine to signal an invalid command. Signa! is either 
for invalid command or ambiguous command if the AMBIG bit is 
set in the parse options. 


i FORMAL PARAMETERS: 


Parse state table 
PT Value of the parse options 


STRCNT Size of the remainder of the command Line 
STRPTR Address of the remainder of the command Line 
TKNCNT Size of the token in error 

TKNPTR Address of the token in error 


i IMPLICIT INPUTS: 


NONE 


i IMPLICIT OUTPUTS: 


NONE 


i ROUTINE VALUE: 
i COMPLETION CODES: 


NONE 
i SIDE EFFECTS: 
NONE 
BEGIN 
NCPS$SIG_CMDERR ! Signal the error 
( ( a ys AND TPASM_AMBIG) ! Use the appropriate code 
THEN $_AMBCMD ! based on the ambiguous option bit 


NCPS_ 

ELSE NCP$_INVCMD 

) OR STS$K_SEVERE, Make severe to stop 
~TKNCNT, .TKNPTR, ! the token in error ; 

gStRtet, -STRPTR ! the remainder of the command Line 


END; ! End of routine 


wreresact Parse Data and Action Routines 18. ie =138¢ $3: 2}: 0% AX-11 Bliss-32 V4.0-74 Page 


ACTSINV_COMMAND Action routine for invalid com 14-Sep- NCP. SRCINCPPRSACT B32; ( ; 

0000 .ENTRY ACTSINV ~CORMAND Save nothin ; 
rE 08 AC 90 Ova STRCNT, “= (SP) : . + O386 
E at 7D MOVQ =TKNCNT, =(SP) : 0388 
09 $f E1 A BBC #48, OPT, 1 + 0384 
000000006 F p if MOVL anc chs OANBCHD, RO + 0383 

50 000000006 8F »D 1 I$: MOVL aNCPS. INVCMD, RO : 
7E 4 ¢ : BISL3 a4. + 0387 

FF46 OCF fe CALLS @#@ Ropssiee CMDERR : 
0 RET + 0392 

; Routine Size: 40 bytes, Routine Base: S$CODE$ + 0123 
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worer ACT 


40 


ane 
aan anda oO 
b sted steht heey DO NOUN WYO OONAME WOOD IE 


Fat at at ot at th hh haa ak ae ae ee ee ee 
iw 
~ 


=SSe 


; Routine Size: 


Parse Data and Action Routines 
ACTSTMPSTR Save a temporary string 


3 

6 
95 
9 


0 


= 


oO 
Sa ek ek et tl ed 


WAA.AIANI AAP PIP POIPINOINININID I OO Ot Oo 


RRRRRRELLLELLLRRREEKK 


o 
= 


14 bytes, 


oo 44 
=aPROIPIPIPINPINONRY et tt tt wt ot tt tt st 


ZSBTTL 


'e¢ 


i FUNCTIONAL DESCRIPTION: 


$3:21:08 AX-11 Bliss-32 ¥3-8: 4 Page 14 


*ACTSTMPSTR Save a temporar 
GLOBAL ROUTINE sachets 


7? 
NCP. SRCINCPPRSACT .B32; (6) 


' 
STRPTR, TKNCNT, TKNPTR, 


Action routine to save a temporary string in a descriptor 


FORMAL PARAMETERS: 


Parse state table 
Count of strin 


TKNCNT 

TKNPTR 

PARAM 
IMPLICIT INPUTS: 


NONE 


IMPLICIT OUTPUTS: 


NONE 
ROUTINE VALUE: 


COMPLETION CODES: 


SUCCESS 
SIDE EFFECTS: 


BEGIN 
MAP 


PARAM : REF VECTOR (2) 


PARAM £0} = .TKNCNT; 
PARAM [1] = .TKNPTR: 
—— SUCCESS 


50 
60 
50 


Routine Base: 


Address of string 
Address of string descriptor to return 


SCODES + 0148 


! Address of string descriptor 
! FILL in the string descriptor 


ACTSTMPSTR, Save nothing : é 
0 : 0433 
TRENCH ps £0435 
: > 0436 

| 

iicincilpeceins 


10 
SSTNT—«NYTNNPEEA “PELAE alate crg NERS FEEL TS Ep DA lepoRg at Bt roe 


a F 


Be Se Se Ge Be Ge Ge Ge Ge Se Se Ge Se Se Ge Se Ge Ge Se Se Ge Se Ge Ge Se Se Ge Se Ge Ge See Se Se Se Sees ese 
> 
Oo 


3; Routine Size: 


ACT 


ere 
Dat et et et ee od 
me 


OWONAVULSWN—OCONO 


rx 
= 


PUPP PTIVIUIVIUIIU SE 


PEI a at tt ast tt kk tk i kd ot 


RRLRRLLELLLLLLELKE 


ARANASSSIEALAVLIS 


10 bytes, 


Peres, Pete and Action Routine 


ZSBTTL ‘ACTSBLNK gi6 Blanks are significant’ 
GLOBAL ROUTINE ACT =! 


i IMPLICIT INPUTS: 


10 
$1G Blanks are signi ticent 1§-bep-1984 $3:2g:98 Lane See INESPREALT ogee 


LNK_SIG (OPTIONS 


'ee 
FUNCTIONAL DESCRIPTION: 


Set parse options so blanks (spaces, tabs) are significant 


i FORMAL PARAMETERS: 


Parse state table 
OPT Options longword 


NONE 


i IMPLICIT OUTPUTS: 


i ROUTINE VALUE: 
i COMPLETION CODES: 


Success 


i SIDE EFFECTS: 


BEGIN 

! Blanks are significant 
OPTIONS = .OPTIONS OR TPASM_BLANKS ; 
RETURN SUCCESS 


END; 


0000 00000 -ENTRY ACTSBLNK_SIG, Save nothing 
04 AC 4 Hs Bp ons BISB2 #1, OPTIONS 
50 1 OD 8008 MOVL #1, RO 
04 000 RET 


Routine Base: S$CODE$S + 0159 


roe 


+ Fe 


wt 


4 
4& 
4 
4 
4 
4 
4 
4 
& 


Be Se Ge Oe Se Ge Se Se Ge Se Ge Se Ge Se Ge Ge Ge Se Se Se Se Se Se Se Se Se Se Se Ge Se ee Fe Ge Se Se ee teas 
NS st SS Ss ooo 
SBBVOARUNV=OSHUEA 


wun 


3; Routine Size: 


Par 


> 


- 
UEWN—O 


LESRAVLS SELF 


DEDEDE a ad kd i a a dd od 


PAAVAMMMMIIUII 


Cooooooeo 
-——— $00 
Wr—O0Oe 


10 bytes, 


e Data and Action Routines 
ACTSBLNK_NSIG Blanks are not significant 


ZSBTTL 


AX-11 Bliss-3 $- 05 0eg 
NCP.SRCINCPPR e407 -B32; 


HScfeoct9ge 25:5] 04 


"ACTSBLNK_NSIG Blanks are not stent ticent” 


GLOBAL ROUTINE ACTSBLNK_NSIG (OPTIONS) = 


FUNCTIONAL DESCRIPTION: 
Parse options are set so blanks (spaces, tabs) are not significant 
{ FORMAL PARAMETERS: 


Parse state table 
OPT Options longword 


| IMPLICIT INPUTS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 


i ROUTINE VALUE: 
p rere CODES: 


Success 
i SIDE EFFECTS: 
NONE 


BEGIN 


OPTIONS = ,OPTIONS AND (NOT TPASM_BLANKS) ; ! Blanks not significant 
RETURN SUCCESS 


END; 


0000 it gfetey ACTSBLNK_NSIG, Save nothing 
04 AC 01 8a 0000 scBe #1, OPTIONS 
50 01 DO 00006 “i, 
04 00009 


Routine Base: S$CODE$ + 0163 


ree 


NCP 


10 
NCPPRSACT Parse Data and Action Routines 1f-s¢ - :51: AX-11 Bliss-32 V4.0-74 
¥O6e000 ACTSIAPTMPDSC Zero a temporary descriptor 12-808=} 382 93:25:98 INCP.SRe NCPPRSACT.832; 
: ¢ 1 1 ZSBTTL me Hh ghd $+ Zero a semporary descriptor’ 
$ 1 1 GLOBAL ROUTINE ACTSZAPTMPDSC (OPT, STRCNT, STRPTR, TKNCTR,TKNPTR, 
3 4 1§ 1 CHR, NUM, PARAM) = ! 
3 5 7 1 
3 § 1 1 tee 
3 : H FUNCTIONAL DESCRIPTION: 
; ! Zero a List of descriptors for temporary strings 
: $31 § | FORMAL PARAMETERS: 
; ; 5 ii Parse state table 
3 ¢ $ } : PARAM Address of PLIT for addresses of descriptor 
; 8 { IMPLICIT INPUTS: 
; 1! NONE 
3 9 5 1! 
3 40 5 ¢ 1 ! IMPLICIT OUTPUTS: 
3 541 5 1! 
: ¢ 3 5 i i —_ 
: 544 1 ' ROUTINE VALUE: 
3 rh : : COMPLETION CODES: 
: 54 539 1! SUCCESS 
; 548 re 1! 
8 49 41 1 ! SIDE EFFECTS: 
3 50 ri} 72 
; 2 4 1! NONE 
a MATL 
: 554 546 ¥ 
3 56 5 BEGIN 
; rk MAP 
3 38 H PARAM : REF VECTOR C10) ! Expect a rather long List 
; 560 : 
; 561 5 § INCRU IDX FROM O ' Scan the PLIT for addresses 
3 $6 333 -. TO .PARAM [-1] - 1 ' PLIT count 
: $8 3 $ -PARAM (.1DX) = 0 ! Jap the count for the descriptor 
; 66 336 RETURN SUCCESS 
; 56 5 
; 568 560 END; 


ACTSZAPTMPDSC, Save R2.R3 
“. -4(R2), R3 


8352 


0553 


$4 


VOc-000° «—ACTREAPTAPDSC® Pero'a temporary descriptor tetas Bi2b:93 ENGL SRChNeBeRgAtt 83054 


51 624 9 18: poy (nes CIOKI. R1 
. i oases 
50 0 06 \t ROW #1, RO 


; Routine Size: 32 bytes, Routine Base: SCODES + 016D 


10 

@ and Action Routines 14.20 -1984 23:51: AX-11 Bliss-32 V4.0-74 Pa 0 

Action routine to prompt 12-8 08-1 38 93:24:98 NCP. SRCINCPPRSACT.832; 9 48 
ZSBTTL ‘ACTSPRMPT Action routine to pr ont 
GLOBAL ROUTINE gg a STRCNT, STRPTR, TKNCNT, TKNPTR, 

CHR, NUM, PARAM) ' 

'o¢ 
j FUNCTIONAL DESCRIPTION: 


Prompt for the remaining portion of a command if input is 
interactive. 


{FORMAL PARAMETERS: 


Parse state table 
PARAM Address of descriptor of prompt string 


al 


ee onl . 


ze 
=—5 
$s 


PROPIPOPOPOPOPOMORINOPOMONFUNOPOPIPOPINONUNYID 28 at a at at tt tt ag 


IMPLICIT INPUTS: 

NCPSCMD_BUF _DSC Descriptor of command Line buffer 
IMPLICIT OUTPUTS: 

NCPS$_PRSCMD_DSC Descriptor of new command Line portion 


i ROUTINE VALUE: 


j COMPLETION CODES: 

Success or error signaled 
{ SIDE EFFECTS: 

NONE 


BEGIN 


SELESEAN LS SSIEARAN AS SANS ASW OSH Wa 


PARAM : REF VECTOR ! Descriptor of prompt string 


Bese SS SSS SSCS SS SSS SERRE RBSOS ISI 


* AL Ab Ab Ab Ab Ab Ab Ab Ab Ab Ab Ab Ab Ab Ab Ab ab db dl 


ee ee a ae td ot ot ss 4 ss ss 


LOCAL 
STATUS 


i NOT NCPSCMD_TERM_Q () ! If we are not on a terminal, 
SIGNAL_STOP (NCPS$_NOTDONE) ! Dump off with a special error 


STATUS = NCPSREAD. CMD ! Read another command portion 
(NCP$- CMDBUF _DSC, 


.P 
NCPS_PRSCHD_DSC 


ae et te a ss Ht 


Se Be Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Fe Ge Ge He Ge Ss Se Se Se Se Ss Se Se Se Se Se Se Se Se Se Se Ss Se Se Se Se Se Ss Se Se Se Se Ss 6s Se Se oe 


AOPOAAACAAAAASAOAO 


AVF WP OOO wou fut-o 


Rohonororofory 


If NOT .STATUS ! Any error dumps us off 
THEN 


$5 


4.10 
voc-000 AC TSPRAPT" ssieplonnges kalo JEReoctORs @3sEL:O4 YASS SBLdassd2, ye 05249 Pa9e 16) 


1 
é : Pole aus EQL RMSS_E 4 
HEN SIGNAL_STOP (NUPS_CMDCAN) ! ,Sgnnene canceled if EOF 
Report .§ any other error too 
gust SIGNAL_STOP (NCPS_CMDERR, 0: STA 


Mun 


Se ee Oe Ge Ge Se Se Se Ge Ge Ge Ge Stee 


3 | 
3s | 
| 
s | 
$1 
3 1 
4 : | 
5 : 
e § STRPTR = .NCPS_PRSCMD_DSC eK ! Set parse state to the portion 3 | 
$ STRCNT = .NCPS-PRSCMD-DSC CO ; 
6 3 RETURN SUCCESS ! And continue with parse 2 | 
640 1 END; 2 | 
| | 
# | 
i 
000¢ 000 ENTRY ACTSPRMPT . Save R2,R3 ; 0562 >] 
$3 90000000" 00 9 0000 HOVAB. NCPS.PRSCAD DSC, RS” ; : 
: 00000006 9E 000 MOVAB 5 BSSTOP, R : : | 
000000006 9 F 919 CALLS , NCPSCMD_TERM_Q + 0605 : 
000000006 8F DD OOO1A PUSHL Rin NOTDONE + 0607 3 | 
2 1 FB 000 CALLS LIBS$STOP : : | 
3 DD 00023 18: PUSHL nS" 3 0611 3 | 
20 AC DD 000 PUSHL : 0612 ; 1 
000000006 99 9F 00028 PUSHAB NPS CMDBUF _DSC : 0617 3 | 
000000006 00 Q3 FB 000¢E CALLS ACPSREAD_CMD ; : | 
0 €8 000 BLBS STATUS, 3$ + 0616 31 
0001827A = BF 50 01 000 CMPL STATUS, #98938 ; 0619 : | 
B 12 0003F BNEQ : : 1 
000000006 8F DD 00041 PUSHL aNCPS CMDCAN : 0620 P| 
2 1 FB 9047 CALLS LIBSSTOP : ; | 
D 11 O004A RB $3" : : 1 
0 DD O04¢ 28: PUSHL STATUS 3 0622 2 1 
E D4 Que CLRL. = =( SP) ; : | 
000000006 ef DD 905 PUSHL #NCPS CR CHDERR : 21 
2 ; FB 00056 CALLS STOP ; : | 
08 AC 6 20 0099 3$: MOva Nees’ PRStAD _DSC, STRCNT + 0627 3 1 
5 1 } 3028 MOVL #1, RO 3: 0629 
4 00060 RET ; 0651 


; Routine Size: 97 bytes, Routine Base: S$CODE$ + 018D 


T 


RNG Check numeric ranges 14-Sep-1 


ZSBTTL ‘ACTSNUM_RNG Check numeric ra 
GLOBAL ROUTINE ACTSNUM_RNG (OPT 
CHR, NOM, PARAMS 


NCP. SRCINCPPRSACT B32; 


a Peree Bete and Action Routines 15-50-1984 $3: 2):08 AX-11 Bliss-32 V4.0-74 Page 3 


ge 


nges' 
STRCNT, STRPTR, TKNCNT, TKNPTR, 
= . 


4 


ae 
FUNCTIONAL DESCRIPTION: 


Action routine to check numeric range of numeric parameter 
FORMAL PARAMETERS: 

NOR at scanty of the numeric token 

PARAM Address of range as two long words, low first 
IMPLICIT INPUTS: 

NONE 
IMPLICIT OUTPUTS: 

NONE 


ROUTINE VALUE: 
COMPLETION CODES: 


Success or error signal 
SIDE EFFECTS: 
NONE 


rs35 


DONA VULSW""OOO~wou 


PAAAAAAAAO 


FRE Tt ot SRE 
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' 
. 


BEGIN 


MAP 
PARAM : REF VECTOR (2) ! Address of UPLIT (low, high) 


IF .NUM GEQU .PARAM £0} AND ! If inbounds return success 
-NUM LEQU .PARAM [1 

THEN 
RETURN SUCCESS 

LSE 


a ce ee ce cc ec ee ee ee ed ed ed A ed dd ed ed dd 
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BEGIN 
NCPS$SIG poem ! Signal parameter out of range 
(NCP$_PRMRNG, 
-TKNCRT, .TKNPTR, 
gSTRCHT, ~STRPTR 
RETURN FAILURE !' Fail transition in parse table 
END; 


RIAN AIAN PIPPI OI a a a a at ot I tS SS SS SS SS Sh SS SS SS SS Ss SS SS SS SS Ss Ss YS 
m 
z 
a 


vena 


: Routine Size: 


Parse Data and Action Rey 
ACTSNUM_RNG Check numeric ranges 


45 bytes, 


é0 
04 A0 
50 


7E 


FE78 


Routine Base: 


tines 


000 
0 AC D 
C AC 9 
0 F A 
1c) 0 =6AC COO 
4 1A 1 
1 00 1 
4 18 
AC 7D 8 1$ 
7E AC 70 18 
000000006 8F 0D OO01F 
CF 5 FB 00025 
0 D4 Q002A 
04 0002C 


1 


SCODES + O1EE 


0 


a 


AX-11 Bliss-32 
RS 


4.0-74 
NCP.SRC NCPP act co3es4 


ACTSNUM_RNG, Save nothing 

PARAM, RO 

NUM, (RO) 
» 4(RO) 

#1, RO 


STRCNT, =(SP) 
TKNCNT, =(SP) 
#NCPS_PRMRNG 
>, NCP$SIG_CMDERR 


Be te Ge Ge Ge Ge Se Ge Se Se Ge Ge Fe 
4 So 
o 
 ~ 
~N 


10 
NCPPRSACT Parse Data and Action Routines 18-5¢ 1984 23:51: AX-11 Bliss-32 V4.0-74 Pa 4 
¥O4~000 ACTSNUR_RNGSAV Check numeric ranges and store 12-808-1 388 #3528598 ENCE SREINCPPREALT 83074 9 43) 
ZSBTTL ‘ACTSNUM_RNGSAV Check numeric ranges and store value in vector’ 


GLOBAL ROUTINE ACTSNUM_RNGSAV (OPT, STRCNT, STRPTR, TKNCNT, TKNPTR, 
CHR, NOM, PARAM) = : 


'o¢ 


FUNCTIONAL DESCRIPTION: 


i _] 
“ 

oO 
Winn 


; 1 H 
; 1 : 
; 1 3 
; 1 $ 
; 1 3 
; 1 ; 
: 94 1! Action routine to check numeric range of numeric parameter H 
$ £8 244 ; } and store value in vector. : 
; os 24 ! FORMAL PARAMETERS: : 
3; 7 83 1! Parse state table : 
s 7 7 1! NUM Value of the numeric token $ 
3 n¢ f 1 : } PARAM Address of range as two long words, low first : 
; 714 07 : 1 ! IMPLICIT INPUTS: 3 
3; 715 44 4 1! : 
; 716 705 1! NONE : 
; 717 07 $ 1! : 
; 718 0707 1 ! IMPLICIT OUTPUTS: F 
3; 719 3708 1! : 
; 720 709 1! NONE : 
; 721 0710 1! ‘ 
“ee ¢ 0711 1 ! ROUTINE VALUE: 3 
 £ arts 1 ! COMPLETION CODES: : 
: 724 07135 1! 3 
s es 0714 1! Success or error signal : 
5; fo 0715 1! : 
. wer 0716 1 ! SIDE EFFECTS: 3 
3; 728 0717 1! : 
3; 729 0718 1! NONE 3 
3; 730 0719 1! F 
3 731 0720 1 !-- F 
; 7 § 0721 1 3 
ee 07 g BEGIN 3 
; 734 37 3 
3; 735 724 MAP : 
3 ie] 44 H PARAM : REF VECTOR (2) ! Address of UPLIT (low, high) 

: 738 oF 7 : 

; 739 728 IF .NUM GEQU .PARAM £0} AND ! If inbounds then store 

: 7640 729 _ sNUM LEQU .PARAM (1 

3; 741 730 THEN 

3; 74 731 BEGIN ! Store the value 

3; 74 7 ¢ IF .ACTSGA_RNGLST CO] LSS ACTSC_RNGLSTMAX 

3 7446 7 THEN 

3: «(745 734 4 BEGIN 

: 746 BF 5 4 ACTSGA_RNGLST [0] = .ACTSGA_RNGLST C(O] + 1; 

3 747 736 4 ACTSGA_RNGLST C.ACTSGA_RNGLST (OJ) = .NUM; 

3; 748 7 4 END 

3 749 7 3 3 ELSE 

; 750 7 4 BEGIN 

3: «(751 740 4 : 

3 236 741 4 ! Jf the vector is full then complain 

; 75 B7 86 4 : , 

3: 754 745 4 NCPS$SIG_CMDERR ! Signal too many ranges 


3; Routine Size: 


87 bytes, 


Routine Base: 


SCODES + 0218 


NCPPRSACT Parse Data and Action Routines 13-50 Sep-1984 23:5 AX-11 Bliss-32 V4.0-74 

your ACTSNUM_RNGSAV Check numeric ranges and store 12-86-1382 93: 2b; % NCP.SRCIN BPRSACT 193984 Page 433 
s 755 744 4 wit FIELDLIM 5 
ee. , 745 & KNCAT, .TKNPTR, 3 
: Sel 4g 4 SSTRENT, ~STRPTR 3 
: 759 748 & RETURN FAILURE; ' Fail transition in parse table ; 
: 760 28 END; 
; 761 750 END F 
3 re f : ELSE ESIN 3 
: 764 7 tag SIG cree ! Signal parameter out of range ; 
s3 765 754 (NCP$_PRMRNG, 8 ° 3 
; 755 .TKNCAT, .TKNPTR, 3 
; 76 7 $ *STRCNT, eSTRPTR ; 
: 788 $788 
; 770 NE: RETURN FAILURE; ! Fail transition in parse table : 
3 7) The ; END; 3 
3; 77 Ore RETURN SUCCESS; $ 
3: 774 0765 1 END; $ 
0004 00000 ENTRY ACTSNUM_RNGSAV, Save R2 ; 0688 3 
52 00000000" 00 9€ 00002 MOVAB ACTSGA_RNGLST, R2 : 3 
50 20 AC 00 00009 MOVL PA 3; 0728 3 
60 1¢ AC 01 0000D CMPL NUM, (RO) $ F 
28 1F 00011 BLSSU 3 3 
04 Ad 1¢ AC O01 Oe CMPL NUM, 4(RO) 3 0729 3 
21 1A 00018 BGTRU $ 3 
20 62 81 OOO1A CMPW ACTS$GA_RNGLST, #32 : 0732 3 
OC 1€ 00010 BGEQU§ 1$ ; 3 
62 6 0001F INCW ACTS$GA_RNGLST : 0735 3 
50 62 3C 00021 MOVZWL AC TSCA RNGLST, : 0736 3 
6240 1¢ ag B0 44 4 MOVW NUM, ACTSGA SRNGE STCROJ 3 3 
25 11 00029 BRB 4$ 3 0732 3 
7E 08 AC 7D 888 B 1$: MOVa ort -(SP) 3: 0746 : 
7E 10 AC 70 Q002F MOVQ KNCNT, -(SP) 3 0745 : 
000000006 BF DD 00033 PUSHL INCES. FIELDLIM > 0744 3 
E 11 00039 BRE $ 3 § 
7E 08 AC 7D 00038 2$: MOVQ STRCNT, -(SP) : 0756 $ 
7E 10 AC 7D QOO3F MOVQ TKNCNT ty ; 0755 3 
000000006 8F DD 00043 PUSHL #NCPS_PRMRNG : 0754 3 
FE27 CF 5 FB 00049 3$: CALLS #5, NCPSSiG. CMDERR ; 3 
4 11 0004 BRB : 0759 3 
50 01 DO 00050 4$: MOVL #1, RO : 0762 3 
04 B22 RET : 3 
50 D4 00054 5$: CLRL RO ; 0763 3 
04 00056 RET ; 3 


11 
NCPPRSACT Parse Data and Action Routines 18. $ep-1984 23:51:04 AX-11 Bliss-32 V4.0-74 P 6 
¥O6-000 ACT SAV Store value in vector 14- 7300-1382 $3: 28: 3 ENCP.SRC NCPPR Salt -B32; age 49 
3 776 7 1 ZSBTTL ‘ACTSNUM_SAV Store yatue in vector’ 
: a £99 ! GLOBAL ROUTINE a a (OPT » STRCNT, STRPTR, TKNCNT, TKNPTR, 
: 77 767 1 
. en ee 
; 193 ! FUNCTIONAL DESCRIPTION: 
: f 44 ! Action routine to store value in vector. 
: 785 773 1) FORMAL PARAMETERS: 
we: 774 «1:5! 
; f 7 of? ! } ocee state table , — i coe 
: 789 re } | alue o e numeric token 
; 79 0780 1! NONE 
; 79 44 1! 
; 794 ree 1 ! IMPLICIT OUTPUTS: 
; 795 0783 1! 
; 796 0784 1! NONE 
; 797 0785 1! 
; 798 0786 1 ! ROUTINE VALUE: 
; 799 0787 1 ! COMPLETION CODES: 
; 800 0788 #1! 
; 801 0789 1! Success or error signal 
: 80 0790 1! 
; 80 0791 1 ! SIDE EFFECTS: 
3 804 O78 1! 
; 805 0793 1! NONE 
3 B08 0794 1! 
: 807 0795 1 !-- 
: 808 0796 1 
H 09 0797 BEGIN 
° 10 0798 IF .ACTSGA_RNGLST (0) LSS ed ce 
3 at 0799 THEN 
$ \¢ 0800 BEGIN ! ore the value 
; 81 0801 ACTSGA_RNGLST [0] = .ACTSGA_RNG éy° we 
; aie tid ACTSGA_ RNGLST ACTSGA_ RNGLST [0] J= . 
3 15 080 END 
: 816 0804 ELSE 
3 17 05 BEGIN 
: 18 5] $ 
; 820 O808 If the vector is full then complain 
: $ 809 NCP$SIG_CMDERR ! Signal too many ranges 
; 8 § 810 (ners FIELDLIM 
: 11 KNCRT, .TKNPTR, 
; ¢ \ STRENT, *STRPTR- 
: $ 0 M3 RETURN FAILURE; ! Fail transition in parse table 
; 58 1g : 
3 $3 1 RETURN SUCCESS; 
: 18 «#1 END; 


11 
VOc-000 = ACTSNURSSAV’"Store value in vector it: ep-19be 2:40:43 ENCP.sRCINEBPRSALT-B30+1 Page (48) 


0004 .ENTRY ACTSNUM_SAV, Save R2 : 0765 
52 00000000" 99 5 HOVAB.  ACTSGA_RNGLET Re : 
: 8 CMPW ACTSGATRNGLST. #32 + 0798 
E C BGEQU 1 : 
é : 0 INCW ACTSGA_RNGLST + 0801 
50 é ¢ 1 MOVZWL ACTSGA-RNGLST, RO : 0802 
6240 1C aC BO 0001 MOVW NUM, ACTSGA_RNGLSTCROJ : 
15 11 0001 $ : 0798 
7E 08 ac 7D O01, 1$ MOVa  STRCNT, =(SP) + 0812 
7E 10 AC 7D 0001 MOVQ §-TKNCNT, =(SP) + 0811 
000000006 8F DD 990 PUSHL #NCP$ FIELDLIM : 0810 
FOF. CF 5 FB 000 CALLS #5, NCP$SIG_CMDERR : 
4 11 00020 BRB 3$ + 0814 
50 01 00 00 F 2$: MOVL #1, RO + 0817 
04 000 RET ; 
50 D4 00033 3$: CLRL = RO : 0818 
04 000 RET ; 


; Routine Size: 54 bytes, Routine Base: S$CODE$ + 0272 


ee ae a a a a a a a es a es aes es as a a ee a a es as a i es a a es es a a ae 


a kk ee a ts 5s 2 st a 8 a 4 4 4 


11 
NCPPRSACT Parse Data and Action Routines ae -1984 23:51: AX-11 Bliss-32 V4.0-74 Pa 8 
06-000 ACTSSTR_LEN Check string Length 127808= 1382 93:24:08 Hane ane INePPREALT o5os% 9 435 
3 ¢ 19 1 2SBTTL ‘ACTSSTR LEN Check string Length: 
3 1 GLOBAL ROUTINE ACTSSTR_LEN (OPT TRCNT, STRPTR, TKNCNT, TKNPTR, 
: 83 } CHR, NOM, PARAMS = 
: 1 'e¢ 
H ¢ } FUNCTIONAL DESCRIPTION: 
: § $ 13 Action routine to check Length of a string token. 
; 0 1} Length is checked for strings with trailing spaces and 
: 1 1! quoted strings. Trail ng spaces and tabs are removed and 
; § 1! quoted strings which must begin with a ‘’ are counted with 
¢ Rez ; : H the quotes parsed correctly. 
: 845 ¢ FORMAL PARAMETERS: 
; <3 8 41: Parse state table 
; 848 . 3s TKNCNT Length of the string token 
3 <3 4 § : Value of the maximum length of token 
: 851 08 8 1! IMPLICIT INPUTS: 
3 26 0839 1! 
; 8 re 1! NONE 
: 854 se! 1! 
3 55 8 § 1 ! IMPLICIT OUTPUTS: 
; 856 843 1! 
; 857 0844 1! NONE 
: 858 0845 1! 
; 859 74] 1 ! ROUTINE VALUE: 
H 084 1 ! COMPLETION CODES: 
5 Bet pase 1! 
3 HE: 49 1! Success or error signal 
; 86 0850 1! 
; He +t 1 ! SIDE EFFECTS: 
: 865 26 1! 
; 866 +H 1! NONE 
3 +44 0854 1! 
3 o8 tH : leo 
: 870 Opes BEGIN 
3; 871 0858 
3 i + Fs LOCAL 
; 87 860 PTR ' Point into token 
; a 0861 PEND, End of token 
3 ! Size of strin 
Eh yee et De 
: 878 865 IF CHSRCHAR (.TKNPTR) EQL '*"* ! Quoted string? 
° 79 THEN 
3 Bs? BEGIN 
; 1 3 CTR = 0; ! Setup counters and pointers 
; 88 PTR = .TKNPTR + 1; 
: 0 PEND = .TKNPTR + .TKNCNT; 
: ¢ 4 WHILE .PTR LSS .PEND ! Scan string 
: 8 4 BEGIN f 
3 74 & IF CHSRCHAR_A (PTR) EQL ‘'’* ! Quote inside? 
; 875 4 THEN 


11 

NCPPRSACT Parse Data and Action Routines 1-5e 1984 23:51:04 AX-11 Bliss-32 V4.0-74 Page 29 

ACTSSTR_LEN Check string Length 12-80-1984 93:28:98 NCP. SRCINCPP REACT + 03984 . (14) 
H 16 BEGIN . 
; i IF CHSRCHAR (.PTR) EQL ''"* : 
; 89 15 R LSS s PEND ; 
; 89 THEN PTR = PTR + 1 ' Count one quote for two : 
3 a pLse EXITLOOP ! Single quote ends it : 
; 4] : & : : 
; 89 4 CTR = .CTR + 1 ; 
; 898 5 4 END : 
; 899 END : 
; ELSE ‘ 
; 1 BEG! : 
; 208 PTR = .TKNPTR + .TKNCNT = 1; ! Strip trailing spaces from token : 
; 90 90 WHILE PTR GTRU . TKNPTR ‘ 
+ 904 91 AND : 
; 905 3 4 ( . 
3 208 93 4 CHSRCHAR (.PTR) EQL * ° ! Space ; 
: pit 94 4 OR 5 
5 895 4 CHSRCHAR (.PTR) EQL 9 ! Tab ‘ 
; 909 536 4 ) 2 
; 910 089 DO : 
; 911 898 PTR = .PTR = 1 ; 
3 aig 99 . : 
3; Wi CTR = (.PTR + 1) = .TKNPTR ! Compute real size of token ‘ 
; 914 0901 END : 
: 915 ; : : 
; 916 ‘ 
; 917 B88 IF .CTR LEQU .PARAM ! Check size of token : 
; 918 5 N : 
; 919 B08 RETURN SUCCESS : 
: 920 090 SE : 
; 921 oe: BEGIN : 
; F g 909 NCPS$SIG_CMDERR ! Signal to print error message . 
; F 910 (NCP$_PRMLEN : 
; 924 11 . STENCRT. - TKNPTR, : 
; 925 9i¢ ~STRCNT, .STRPTR : 
: aS 
; 928 0915 RETURN FAILURE ! Fail transition in parse table : 
; 44 0916 END : 
Py G a4 t4 ° 
: 931 918 1 END; : 

000C 000 ENTRY ACTSSTR_LEN, Save R2,R3 ; 0820 

04 C 0 SUBL 2 P 3 

14 AC OD MOVL TKNPTR, Rg ; 0865 

51 10 A 5 ADDL3 TKNCNT, Re, R1 ; 087 

CMPB 0s (R2), #34 ; 086 

1 1 BNEQ 3$ 3 

3 1 CLRL HH : 0868 

gf 01 4 . 1 MOVAB (R2), PTR : Hy 

6— D 19 18: CMPL PTR, PEND : 0871 


—___—____—_, —— 


Parse Data and Action Routines 
ACTSSTR_LEN Check string Length 


vena 


; Routine Size: 127 bytes, Routine Base: 


wi> See SSR SR SSSR SRSERS 
NO —LOWOM LMOmMmonrm— "Om Pm mMoUVIMNMa 


53 00 
22 
22 00 
51 
i FF 
1 
20 00 
09 00 
¥ $6 ot 
20. «AC 
50 
7E 08 
10 AC 
000000006 8F 
FD6C =F 5 


0 


i 


1 
14-Sep-1 

{8 1C BGEQ 
A MOVZBL 

b6 INCL 

CMPB 

1 BNEQ 

7 9 CMPB 

D BNEQ 

9 F CMPL 

BGEQ 

D INCL 

2$ INCL 

BRB 
E A 3$: MOVAB 
‘ 4$: MOVAB 

9 CMPL 
44 BGEQU 

9 46 CMPB 

1 GA BEQL 

91 4 CMPB 

i 5 BNEQ 

) b2 5$: DECL 

i 0 BRB 
3 056 6$: SUBL3 
. 005A MOVAB 

D1 OOOSE 7$: CMPL 
1A Bee BGTRU 

00 00 MOVL 

4 00067 RET 

D 00068 8$ MOvVa 
DD 0006C PUSHL 
1) 9) Bogs PUSHL 
DD 00071 PUSHL 
FB 00077 CALLS 

b4 0007C CLRL 

04 O0007E ET 


SCODES + 02A8 


Be 12:28:95 


NCP. SRCINGPPRSACT.B3271 
arr, R3 

RS, #34 

PTR, #34 

PTR, PEND 


PTR 
aPTR, #32 
apTR, #9 
58 

PTR 

4$ 

R2, PTR, R1 
1(R1), CTR 
CIR, PARAM 
#1, RO 
STRCNT, (SP) 

R2 

TKNCNT 
#NCPS_PRMLEN 

#5, NCPS$SIG_CMDERR 


Pa 30 
9 4a) 


0874 


0877 
0879 


0884 


889 
890 


acme earner a a 


11 
WGCPRGRC™ —_ReeRL DORR ane Metin Routines sss sor parse ECHESTISRS TH:EL:NS — AUGt EAE tssRZaY4 0504 Poe 43) 


ZSBTTL  "ACTSNXT 


vw 


Vv 


STAr et next state table for parse’ 
GLOBAL ROUTINE ACTSNXT_STATE (OPT, STRCNT, STRPTR, TKNCNT, TKNPTR, 
CHR, PARAM) = : 


OOO 
uw 
_ 


3) 
; 1 3 1 
; } NOM, ; : 
: : 1 !+¢ : 4 
: ¢ } FUNCTIONAL DESCRIPTION: : : 
3 340 § } : Setup pointers to skip to another state table to finish parse : ; 
: ae | FORMAL PARAMETERS: ; 
; 3c 1! Parse state table : : 
: ok , ! PARAM Address of address pair - state_table, key_table .¢ 
; 3c9 i 1 | IMPLICIT INPUTS: 31 
; 948 1! 3 1 
; 949 > re NONE 3 3 
3 330 1! : 1 
3 383 HM : IMPLICIT OUTPUTS: : : 
; 33 1! NONE :1 
: 954 0940 1! :1 
; 955 1 1 =! ROUTINE VALUE: : : 
; 95 94 1 ! COMPLETION CODES: : 
; 95 1! 31 
; 958 ® oF Success : 1 
; 959 > $3 3 1 
; 960 94 1 ! SIDE EFFECTS: ; 1 
: 961 1! 3 1 
3 306 8 1! NONE : . 
: 9 1! He 
: 388 i ie : 4 
; 966 3 BEGIN i] 
; 368 az 31 
3 369 955 PARAM : REF VECTOR : } 
: Ort 3 ; i 1 
; 36 58 NCPS_NXT_STATE fo} = .PARAM £02: ! State table address : : 
; 97 59 NCP$_NXT STATE (1) = .PARAM (1); ! Key table address <4 
ee 4 ' RETURN SOCCESS : 1 
: 97% 2 END; i] 
21 
3 9 
: 
0000 000 .ENTRY ACTSNXT_STATE, Save nothin : 0920 31 
9 20 Ac pO S002 HOV. PARAM. RO : : 988 :] 
00000000' MOVQ (RO), NCPS_NXT_STATE : :] 
1 2 MOVL #1, RO : 0960 71 
4 0001 RET ; 096 : 
$1 


; Routine Size: 17 bytes, Routine Base: SCODE$ + 0327 


Vo-080" —CTSAKTSSTAPE® SEE'Rext Stace table for parse 1-8ce-1 88s PBiZbit$ ENGEL SREbNEBeRSALT 85974 Page 435 


vee 


Se Se Ge Se Se Se Se Se Se Se Se Se Se Se Se Se Ge Se Se Se Se Se Se Se Se Se Ge Ge Se Se Se Se Se Se Se Se Se ee Ge ee 


1 


_ 


ODOOODO0O 
uw 


a at at a ss a ts st 8 
SSSSSSeoecS sess eeeSe 


ooooooo 


at ot a 
NOUS Wt 


Routine Size: 


Parse Dat 
ACTSURI_S 
z 


teenurt Sf nie uo to the output devic 1B-Fep-1964 3: 2b: % Nee SRE ane PReAtT o324 
L 


SBTTL ‘ACTSWRI sie Write a a string to the output device’ 
GLOBAL ROUTINE a a? STR CORT. S STRC 


NT, dant TKNCNT, TKNPTR, 
lee 
! FUNCTIONAL DESCRIPTION: 
Write a string to SYSSOUTPUT 
FORMAL PARAMETERS: 


Parse state table 
PARAM Address of descriptor of the string 


IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
COMPLETION CODES: 


lt ei Re De te et et et ee 


Success 
SIDE EFFECTS: 
NONE 
BEGIN 
NCPSWRITE LI rf (. PARAM); ! Write the Line 
RETURN SUCCES 
END; 
0000 ENTRY ACTSWRI_STR, Save nothing 
20 ac 00 PUSHL A 
000000006 98 8 F CALLS #1, NCPSWRITE_LINE 
1 B? ; +t #1, RO 


16 bytes, Routine Base: S$CODE$ + 0338 


Pa 33 
9° 18) 


- — . . oe wef 
Ue iti GEER0S YASS LARNEpPAz L455 Page i 

ZSBTTL ‘A ROUTINE: ACTS ens and error from 

GLOBAL ROUTINE y my +4! aye cnt, STR TR. *TKNCNT, TKNPTR, 


—_ 
Wn—O”O 


te 
FUNCTIONAL DESCRIPTION: 


Signal and error from parse and return to parse 
FORMAL PARAMETERS: 


Parse state table 
PARAM Value of status code to signal 


' 

' 

' 

' 

| IMPLICIT INPUTS: 
; NONE 

! IMPLICIT OUTPUTS: 
] 
' 
' 
' 


Mur OOONAOUNE 


> bd a a 


po fof ololeololo) 


ROUTINE VALUE: 
COMPLETION CODES: 


Success 
SIDE EFFECTS: 
NONE 


zEEE 


MEUM (OOO NOUES WN “OOOO vr fury 


BEGIN 


FUN OOO NOs 


SIGNAL (.PARAM); ! Signal the condition to print the message 
RETURN SUCCESS 
END; 


Be Se Ge Ge Se Se Se Se Se Ge Se Se Se Se Se Se Ge Ge Se Ge Gs Ge Ge Ge Se Ge Se se Ge Se Se Se Ge Se Ge Se Se Ge Se Ge ee 
a ek a a ad a ad td ss kt a = “a a a a is as a _ 4 a 2 


GRARRRPRARREERRERER 


oO 
ae ce ed is a a a ed ds tt = 8 tt tt 


SPP eo oocsessssssssscoescos 


Wwnr—oo 
PIII III a a sk hd 


cOonou 


0000 000 .ENTRY ACTSSIGNAL, Save nothing : 
DD 000 PUSHL : 
F CALLS #1, L 1BSS1GNAL ; 

B0 ROVL #1, R : 


Routine Size: 16 bytes, Routine Base: SCODES + 0348 


00000000 of 
° $0 a1 


NCPPRSACT Parse Data and Action Routines 1 
¥O0-000 ACTSPMT_ON Enable prompting 1 


ZSBTTL ‘ACTSPMT nable prompting’ 
GLOBAL ROUTINE ACTSPMT ONS Oonee No 


en— 


S98 GECA0$ Wp! deblbepsaeatt: 83 rane 
lee 
! FUNCTIONAL DESCRIPTION: 

Action routine to enable prompting for command prompting 
FORMAL PARAMETERS: 

NONE 
IMPLICIT INPUTS: 

NONE 
IMPLICIT OUTPUTS: 

ACTSGL_PMT_Q 


ROUTINE VALUE: 
COMPLETION CODES: 


Success 
SIDE EFFECTS: 
NONE 


0 
1 
5 
; 


- 


Wr—OO0°e 


7 
7 
7 
7 
7 
7 
7 
7% 


BEGIN 


GLOBAL 
ACTSGL_PMT_Q ! True for prompting enabled 


ACTSGL_PMT_Q = TRUE; ! Enable prompting 
RETURN SUCCESS ! Continue the parse 
END; 


S92 599398 
Sanourun—oo 


SESISPSSISSELESESEE 


wn 


Be ee Se Ge Se Ge Se Se Se Se Se Ge Ge Ge Se Ge Ge Ge Ge Se Se Ge Se Ge Se Ge Se Ge Se Ge Se Se Ge Se See Se Se Se Se tseee 

a at 4 a SS — 4 4 a Wt = 2 4 a 9) a ss a ts a 2 a a tn tt tt 

a a ah a a a at a ts ts 2 a 4 Ws 8 2 ts dt a 2 a 
uw 


—) 2 ad 
aV2s 


-PSECT S$GLOBAL$,NOEXE,2 


00054 ACTSGL_PMT_Q:: 
-BCKB 4 


7 
” 
. 
o 
. 
° 
7 
° 
© 
" 
. 
6 
o 
e 
2 
o 
o 
a 
. 
ao 
. 
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. 
° 
. 
e 
. 
a 
. 
o 
e 
o 
. 
e 
. 
e 
= 
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. 
e 
7 
o 
2 
e 
eo 
° 
o 
. 
e 
o 
o 
. 
a 
o 
= 
. 
. 
. 
e 
. 
° 
7 
a 
. 
e 
. 
° 
. 
e 
a 
e 
. 
e 
= 
a 
. 
7 
a 
e 
7 
e 
. 
e 
. 
e 
o 
o 
. 
e 
7 
. 
o 
2 
. 
e 
. 
e 


-PSECT SCODES,NOWRT,2 


017s 60000 -ENTRY ACTSPMT_ON, Save nothing 


3 1045 
00000000" 00 MOVL #1, ACTSGL_PMT_Q : 1082 


sma Saitedoas “EAAES'on ovis VERSION MELAS ESTAR tl 
ene Se el Ee tan em 18 


3; Routine Size: 13 bytes, Routine Base: S$CODE$S + 0358 


OO oe Oe 6 e Fe FS Fe FS FS FG FS FG FS FS FS FS OE FS FS OR FS FS FS OS OS OS FS OS OS FS OS 6G 1G OSS FS FS FSFE FETE ESSE FSFE SS *S SS FSS SSSR SCR HDSEO SD 


na 
mo acucuc 
_ ocr | 
~~ eee i 
& } 
oa eeterece i 
2 | 
Ne 
J +e 
nou 
als 
. a o 
wre Cc 
>u ops 
<« x 
Nw ~ 
ma °o 
‘a Cc 
aa. 
nu a 
ct” 4 — 
— oa 
@Qw ” 
[4 
wn A = 
- e mu 6 
‘a De ed 
KU oz 
<2 a 
>w — 1 
zjIO 
ace 
PAA 
—— s 
ww ov Vue 
on o wn <<z 
7 oe Cc . 
—oO - @« 
wwe ww a > 
ee ef a a 
me Ee @ — 
Ne o £ 2a>r 
- wiIOuw 
wv ao a VWEa 
cooo c a 
oon - ® s 
—— cd — Cc 
6 a a 
aa e oo 
—-&o °o “ ¢€ 
nm = - So 
a > a oa wv 
= wo ae -- ccd cD 
= Cc Ssss 
oa @ oooo 
c Ee oooo 
od € oooo 
co °o 
a .e) owow 
Ee caso w 
o-- @ So ~o 
i a) So Lal 
a 2 o- So 
@ oo 
aw n" +> 
— iT} - 
2 0 o A 
Ou So Aad 
au ee o *e oS a 
oO =z = w SoS oO 
Qa t o ” o 4 
an ont —- © ail oS ae 
ec = - c < 2 
c- «A Qa So (ve So 
—- wu —- -§ oe Q o oO = 
+a OF t+ 4 => «= ny ”" u ” ov 
Se ew ,- Oo wi n oa = w ” oO ”" 
oo e< "ny © & oa —_ “a ao w w bd 
ee. = w ws — a ‘(wo ww * ‘wv @ 
a w oa cc = a - 4 ow Ff WwW - vw 
c AZ ° 2 29 a oe =z 2 J 
oe -- ee: ee ee ee © ee ee aw Cc 
-— Ve < ~ <« z z - >OoO vo w F 3 ¢ _ 
~2 <> , a - oe wv - > —~ = +4 
v7@® - Oo oOo <« ze es tft we WwW uw ze zaveoe 3 
<n 4 —_ = v ve Zw w = A D *s a 
- - < _ = J Oo eK §- 2 x 
2° =z 2 & a a Sf a oa<2ec6 
du 
& =e — oO = = aS ws 
u @ te ire “~ _ ew ” a 
So. WY + ‘ > 
Zo, pe eee eet tt 3 
@ 2 
“eA OPN FA OP- DOF Om WM TIN OR. DOO CUMTIMNOR. OKO UMS 
ee DOOR OT anS OO OOOCCCS SS SK KK KK KK OUNUCUNIN N 
BY BOOCOCCSCSCSSCSCSSCS eK KKK KKK KK KCK KKK Kerr crecerrcrne = 
CO el ek el cl el el cel el el el ll el cl ll el el el ch el cl ck el el eh ek oe ok ok ok ek ok a 
a 
N 
- 
”“” 
— Co 
w c 
<< - 
“ BRB EPO NE OOOO wn -35o-¥ 4 
> 6 el el el el oe le el el lel ll eel el el el el el el sel ed el el el el gd el a eh et 8 
Se el el ce el el el eel ll el ll ll ll oe ll el eh ed el ed el el peel pe el oe oh ee a ax 
z> bide Ded ted ted ee eh eh eh dh dd hd od od od do do 2 2 2 oe 


AX-11 Bliss-32 V4. 


11 
PrSep 1984 28:51:06 YAK=I1 a ng-52 v4.0-742 
tin 
RPTR 


e Data and Action Routines 
PMT_Q Control command prompting 


1 
1 
ZSBTTL ‘ACTSPMT_Q Control command rose 
t 


vena 


Page 235 


ow 
a5 


i A] 
GLOBAL ROUTINE ACTSPMT Q (OPT, STRCNT, P 


CHR, NOM, PARAM) = ‘phim TKNCNT, TKNPTR, 


+ 
FUNCTIONAL DESCRIPTION: 


Action routine to control command orenet ing 
These three routines work with the COMMAND _PROMPT 
seer’ 7s control command prompting. Keywords or 


WR" OOONOUES WN" OOONOUS 


Set for EOS parse to occur 
Continue parse 


STRCNT = 0; 
RETURN SUCCESS 
END 


ELSE 
RETURN FAILURE 


P 

A 
3 114 1125 1 $ 
3 1146 11 § 1 $ 
3 114 11 1 3 
3 114 11 8 1 $ 
3 114 11 1 t+ 3 
3 114 1130 1! $ 
; We 1131 1! PF 
3 11 11 § 1! 3 
MB HEY | 
: 112 1135 1 an entity is prompted if the state is entered with ; 
3 We 11 $ 2.3 the TPAS_EOS condition. ACTSPMT_ON and _OFF are used : 
311 11 1! to set prompting on or off. If prompting is on and ‘ 
3 115 1138 1! any other transition fails, this action routine is called ; 
3 115 1139 1! to signal an error and set the EOS condition so ACTSPRMPT PF 
3: 115 1140 1! will obtain the next string to try. The parse loops in the : 
3 116 1141 1! state until an acceptable response is given or EOF causes : 
: 136 1166 : return to the initial command level. : 
: 1163 1144 | FORMAL PARAMETERS: : 
> 1165 1146 1! Parse state table ; 
3 1108 1iee : : PARAM Value of status code to signal if non-zero : 
; 1168 1149 { IMPLICIT INPUTS: ; 
; 1170 1131 ; ACTSGL_PMT_@ 3 
; 1178 1188 1 ' IMPLICIT OUTPUTS: ; 
3; 117 1154 1! $ 
: 78 118 1 | — 
> 1176 1157 1 | ROUTINE VALUE: F 
: Wize 1138 } COMPLETION CODES: : 
; at 1169 : Success of prompting, failure if not promting 
; 1181 1162 i SIDE EFFECTS: 
: 1183 1164 1! NONE 
3: 1184 1165 1! 
3: 1185 1198 1 !-- 
: 1186 1167 1 
18 1189 _— 
: 118 1170 IF .ACTSGL_PMT_@ ! If prompting 
‘1  § Mhccry 
311 1193 IF .PARAM NEQ 0 ! If condition to signal 
; i 1128 THEN SIGNAL (.PARAM) ! Signal the condition 
: 11 1176 
s 11 117 
3 11 1178 
3 11 117 
3 11 + 
: 12 1181 


SSSLESEENLESEN 


Cause failure in state 


SSCMAST —«RRTADARH® EGAMCECMewG ttageing | RCRSETOML GE:EASAS WASMDARMERREN ESS lt 
11 
11 


: 1802 few; 


000 ENTRY ACTSPMT_Q, Save nothin 11 

16 000000906 00 € BLBC act $GL_ Pmf_a Ss . ; 1196 

AC D TSTL PAR + 117 
OA 1 C BEQL ; 

20 ac DD OF PUSHL PARAM : 117% 
000000006 00 0 FB CALLS #1, LIBSSIGNAL ; 

08 AC D 18 1$: CLRL = STRCNT : 1176 

50 01 DO 00018 MOVL #1, RO + 1181 
04 O001E RET ; 
50 D4 OOO1F 28: CLRL = RO : 

04 00021 RET + 1183 


; Routine Size: 34 bytes, Routine Base: $CODE$ + 0371 


re 


o 
=" 


MIMINININININININ 2 2 A SS OO Oo Sz 


ee ei ee eee 
, > a 


Be ee Be Se Se Se Ge Fe Ge Ge Be Se Ge Ge Se Ge Ge Fe Ge Ge Ge Fe Ge Se Ge Ge Ge Ge Ge Ge Se Ge Se Se Ge Se Ge Se Ge Se Se Se Se FH Se Se Se Ss Ge Ge ee 


TY 


12 
Parse Data and Action Routine 1$-56 “19 2:51:04 X-11 B 0-74 Page 40 
ACTSEXEC Q Test i} Component 3s Executor 14- oa 1384 93: 28; % INP. sae inee si B33: ~ (21) 
ZSBTTL ‘ACTSEXECQ Test if rng FReNt t is Executor’ 
TRCNT, ST TRPTR, TKNCNT, TKNPTR, 


GLOBAL ROUTINE oy UA (OPT 
CHR PDB 


14 

' FUNCTIONAL DESCRIPTION: 
Action routine to test if the current node component is the 
executor node. Called from the ncpstanod module to select 
the correct parameters for prompting. 
The executor is coded as an address of zero, that is three 
data bytes of zero. 

FORMAL PARAMETERS: 


Parse state table 
PDB Address of PDB data block for the component. 


IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
COMPLETION CODES: 


Success if component is executor node, failure if not 
SIDE EFFECTS: 


le ieee te te et et i i te ee ee ee et 


me a ee ee a ed ed nd ed ed od ed = dd dd 


POPPOPOPORONOPORONOPUNONOPOPONOPOPONUPONOPONOPONOPUPONUTURUNPURUNN 9 = 


nhonorofnunrng 
FUN ZSSRVEARAVLS DONS ARUVASSSVE AE WW OLB EAE Ooo IO 


API IP IPIPIPIPINPIPDIINIIPDI LD a a ad at nn kk kk nk hh kd dt tt 


NONE 
BEGIN 
MAP 
PDB : REF BBLOCK CPDBSC_SIZE] ! Pointer to the component PDB 
IF .PDB C1, 0, 24, 0) EQ. 0 ! Look at three bytes of the data 
RETURN SUCCESS ! It is the executor 
LSE 
RETURN FAILURE ! Cause failure in state 
END; 
0000 00000 ENTRY ACTSEXECQ, Save nothing >: 1185 


VourO00” =A TSENECG™ Fest} Component ts Executor tet ~Sep=18R2 3:28:93 ENCE ERE NEBpRGALT 03021 
00 01 Ad 3 - S i § CHPOV A, ee, 1(RO), #0 


4 C BNEQ 
50 1 OD MOVL #1, RO 
04 0001 RET 
50 04 00012 18: CLRL RO 
04 00014 RET 


3; Routine Size: 21 bytes, Routine Base: SCODES + 0393 


vena 


FRAN SSESELEARAN LS SaNoerFcw— 


Sel 


ee ed ed ad ad det = a as as —  — — 2 Ls 
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ata and Action Routines 18.12 ep-1 75 AX-11 BLi 
DONEQ Terminate Prompts? 14- eat 3: 2b: % NCP.SRCIN 
ZSBTTL ‘ACTSPMTDONEQ Terminate Prompts?’ 
GLOBAL ROUTINE ot ee ae say T, STR iF STRPTR, TKNCNT, TKNPTR, 

R, = 


+ 

FUNCTIONAL DESCRIPTION: 
This routine checks the parsed token to see if it is ‘'_DONE’’. 
If so the routine peperes success and the parse tables exit the 
prompt sequence. Otherwise the rout ne returns false and the 
remainder of the prompts are processed. 

FORMAL PARAMETERS: 
Parse state 
TKNCNT 
TKNPTR 

IMPLICIT INPUTS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
COMPLETION CODES: 


Success or failure 
SIDE EFFECTS: 
NONE 


Descriptor of token just parsed 


BEGIN 

IF CHSEQL (.TKNCNT, .TKNPTR, 5, UPLIT BYTE ("_DONE'), 0) 
RETURN SUCCESS 
RETURN FAILURE 

END; 


-PSECT SPLITS,NOWRT,NOEXE ,2 
45 4E 4F 44 SF 00000 P.AAA: .ASCII \_DONE\ 


-PSECT SCODES,NOWRT,2 


V4.0-74 
Spacatt o3or4 
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ACTSPMIDONER” Terminate Prompts? 


= al t : 
3 


of: 


; Routine Size: 23 bytes, Routine Base: S$CODES + 03A8 


IbBeo-t9ge 25:54:04 


AX-11 Bliss-32 V4.0-74 
Nop SRP INESPREALT o3o04 
ACTSPMTDONEQ, Save R2 B3 
TKNCNT, @TKNPTR, #0, #5, P.AAA 


1$ 
#1, RO 
RO 


ee —~ 


12 
PPR T - - : : - = .0- 
vOu-000° ACTSPMTDONES “Terminate Prompts? 1fseo-t9ge 3:28:38 UNCP LSRedNePPRSACT o3e+4 Page 04) 


ZSBTTL ‘ACTSHELP Provide proaptin help. 
GLOBAL ROUTINE ACTSHELP (OPT, STRCN STRPTR, TKNCNT, TKNPTR, 
CHR, NUM, PARAM) = ' 


te 
FUNCTIONAL DESCRIPTION: 


Action routine to provide prompting help 


4! FORMAL PARAMETERS: 
93 Parse state table 
94 STRCNT Size of the remainder of the command Line 
95 STRPTR Address of the remainder of the command Line 
$7 IMPLICIT INPUTS: 
39 NONE 

IMPLICIT OUTPUTS: 

NONE 


ROUTINE VALUE: 
COMPLETION CODES: 


SUCCESS 
SIDE EFFECTS: 
NONE 


MEUM —O OONOAVESWN “OOOO ur 


BEGIN 
OCAL 

HLP_DESC : BBLOCK CDSCSC_S_BLNI, 
STATUS; 


SC$C_S_BLN, HLP_DESC); ! zero descriptor 
$W_LENGTH) = .STRCNT; 


HLP_DESC ‘ 
SA-POINTER] = .STRPTR; 


CHSFILL fb 
HLP_DESC 


D 
sc 
DSC 


POROPONOPOPUNG 2 2 tt oe 


oO 


ONOULWN—OO 


Request help be ereeced by Lib$Sput_output to sys$output 
from Library SYSSHELP:NCPHELP.HLB.~ Query for additional help 
to sys$input using Lib$get_input. 


TATUS = LBRSOUTPUT_HELP (LIBSPUT OUTPUT, 0, HLP_DESC, 
SDESCRIPTOR(*NCPHELP'S, O,LIBSGET_INPUT); 


IF NOT .STATUS THEN SIGNAL (.STATUS); 
RETURN SUCCESS 
END; 


1 
i 
i 
i 
: 
$s 


ee ee ee ee dc ce ee ee ce ce cc ce ec ce ee ee ce ce ee ee ae ed ed ee ee ed 


PAA AMNVIUIN 


cme ee ee em me em ee ee ee ed a ed od dd wd wd 
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Voc-000, ACTENELP' “Provide prompting help Has Stpn19be 2:28:13 ENCPLSREINCRPRSACT 03074 Page (035 


-PSECT SPLITS,NOWRT ,NOEXE,2 


50 4C 45 48 50 4% 4 5 P.AAC: ASCII \NCPHELP\ ; 
BBo09000" OoO10 | NAB: 
0" OD RESS P. AAC : 
.PSECT SCODES,NOWRT,2 
003¢ 00 .ENTRY ACTSHELP, Save R2,R3,R4,R5 : 1283 
SE 08 g 0 SUBL2 #8, : 
08 00 6E 00 ¢ 3 movcS #0. (SP), #0, #8, HLP_DESC + 1321 
6E 8 AC 80 MOVW  STRCNT, HLP_DESC F 1322 
04 AE ¢ aC p OF MOVL  STRPTR. HLP™DESC +4 ; 132 
000000006 9 F 00014 PUSHAB LIBSGET_INPOT + 1330 
D4 OOOIA CLRL = = (SP) : 
00000000' 00 9F 901 PUSHAB P.AAB + 1331 
OC AE OF PUSHAB HLP_DESC : 1330 
3 D4 000 CLRL -(SP) : 
000000006 9F 90 PUSHAB LiBsPur OUTPUT : 
000000006 00 3 5 D CALLS LaRSOUTPUT HELP 3 
09 E8 000 BLBS sf PATHE. 1$ : 1333 
000000006 00 ; 43 80 CALS FH LIBSSIGNAL : 
9 4 b0 9040 1$: HOVE a ko ; 1335 


; Routine Size: 68 bytes, Routine Base: S$CODES + O3BF 


a 
: 1389 1385 4 Eltoon 


vetee Data and Action Routines 
ACTSHELP Provide prompting help 


PSECT SUMMARY 
Name Bytes 
SGLOBALS NOVEC, WRT, RD 
SouNe fs NOVEC, WRT, RD 
SCODES 1027 NOVEC.NOWRT, RD, 
ABS. NOVEC.NOWRT.NORD ; 
$PLiT NOVEC.NOWRT, RD 
Library Statistics 
2------- Symbols 
File Total isaded 
+ SS$DUARB: NCP. BJ INCPLIBRY 43231 73 7 
55$DUA28:(SYSLIB STARLET LS 31 9776 18 


COMMAND QUALIFIERS 


BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:NCPPRSACT/OBJ=OBJ$:NCPPRSACT MSRC$:NCPPRSACT/UPDATE=(ENHS:NCPPRSACT) 


Size: 1027 code + 144 data bytes 
un Time: r a 

Elapsed Time: :23.1 

Lines/CPU Min: $ai9 


Lexemes/CPU-Min: 11009 
ry Used: 87 pages 
Compilation Complete 


1}.36 oe 
12-288 


‘End of module 


Attributes 


oNOSHR, 
ot Beit Hd 


‘NOSHR, 
;NOEXE ,NOSHR, 


Percent 


1 
0 


198e 3:20:95 «UNG Sachnebnsatt- 030; 


-EXTRN LIBSSIGNAL, LIBSSTOP 


LCL, REL, CON,NOPIC,ALIGN(2) 
LCL, REL, CON,NOPIC,ALIGN(2) 
LCL, REL, CON,NOPIC,ALIGN(2) 
LCL, ABS, CON,NOPIC,ALIGN(Q) 
LCL, REL, CON,NOPIC,ALIGN(2) 
Pages Processing 
Mapped Time 

52 00:00.1 

581 00:01.4 


Pa 46 
9° 24) 


wef 


ENT CORPORATION 
ND PROPRIETARY 


0268 Vaxrvins v4-o _CONF 


